From 6d1804420545fd25b5af3a335abb2cd229f04414 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 15 May 2013 02:38:14 +0300 Subject: [PATCH] * lisp/subr.el (find-tag-default-as-regexp): Return nil if `tag' is nil. --- lisp/ChangeLog | 5 +++++ lisp/subr.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3002bb31eda..dd5a88749f8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-05-14 Juri Linkov + + * subr.el (find-tag-default-as-regexp): Return nil if `tag' is nil. + (Bug#14390) + 2013-05-14 Glenn Morris * progmodes/f90.el (f90-imenu-generic-expression): diff --git a/lisp/subr.el b/lisp/subr.el index 4871f3733f9..177e9a84a58 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2738,7 +2738,7 @@ symbol at point exactly." (get major-mode 'find-tag-default-function) 'find-tag-default)) (tag (funcall tagf))) - (cond ((not tag)) + (cond ((null tag) nil) ((eq tagf 'find-tag-default) (format "\\_<%s\\_>" (regexp-quote tag))) (t (regexp-quote tag))))) -- 2.30.2